home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbcmpile.arc / COMPILE3.PRG < prev   
Encoding:
Text File  |  1986-02-16  |  1.1 KB  |  42 lines
  1. *** compile3.prg
  2. CLEAR ALL
  3. SET SAFETY OFF
  4. SET DELIMITER OFF
  5. SET talk OFF
  6. SET echo OFF
  7. SET BELL OFF
  8. USE compile3
  9. COPY STRUCTURE TO temp3
  10. USE temp3
  11. CLEAR
  12. DISPLAY files LIKE *.*
  13. STORE '        ' TO progname
  14. @ 20,10 SAY 'Enter the name of the program to be Pseudo - Compiled'
  15. @ 21,10 GET progname PICTURE '!!!!!!!!'
  16. @ 21,18 SAY '.PRG'
  17. READ
  18. STORE TRIM(SUBSTR(progname,1,7)) + 'C.PRG' TO m_prog
  19. STORE TRIM(progname) + '.PRG' TO progname
  20. APPEND FROM &progname sdf
  21. go TOP
  22. SET ALTERNATE TO &m_prog
  23. SET ALTERNATE ON
  24. DO WHILE .NOT. EOF()
  25.      STORE 1 TO cnt
  26.      DO WHILE (SUBSTR(line,cnt,1) = ' ' .AND. cnt < 50) .OR. SUBSTR(line,cnt,1) = CHR(9)
  27.           STORE cnt + 1 TO cnt
  28.      ENDDO WHILE ($(line,cnt,1) = ' ' .AND. cnt < 50) .OR. $(line,cnt,1) = CHR(9)
  29.      IF SUBSTR(line,cnt,1) = '*' .OR. SUBSTR(line,cnt,1) = ' '
  30.           DELETE
  31.      ELSE
  32.           STORE TRIM(SUBSTR(line,cnt,254-cnt)) TO m_line
  33.           ? m_line
  34.      ENDIF $(line,cnt,1) = '*' .OR. $(line,cnt,1) = ' '
  35.      SKIP
  36. ENDDO WHILE .NOT. EOF
  37. SET ALTERNATE OFF
  38. USE
  39. DELETE FILE temp3.DBF
  40. RETURN
  41.  
  42.